home *** CD-ROM | disk | FTP | other *** search
/ The Essential Home & Business Collection / The Essential Home & Business Collection.iso / 27 / 3 / 5 / HP22D5.ZIP / EXTERN / KEEP.ASM < prev    next >
Assembly Source File  |  1991-04-16  |  309b  |  27 lines
  1. DOSSEG
  2. .MODEL        LARGE
  3.  
  4. include        extern.inc
  5.  
  6. EXTRN        GetSharedArea:FAR
  7.  
  8. .DATA
  9.  
  10. Proc1Name      db        'Keep',0
  11.  
  12. Pool        PoolStruct    <Proc1Name,Keep,,HANDLER>
  13.         PoolStruct    <>    ;END
  14.  
  15. .CODE
  16.  
  17. Keep:        call        GetSharedArea
  18.         mov        es,dx
  19.         mov        bx,ax
  20.         or byte ptr    es:[bx],10h
  21.         mov        ax,STOP
  22.         retf
  23.  
  24. END
  25.  
  26.  
  27.